home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / iceclimb.dxr / Internal_18_walk right & push rocks until one is in the air.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  687 b   |  27 lines
  1. on exitFrame
  2.   global gFrameCounter, gFloatSprite
  3.   gFrameCounter = (gFrameCounter + 1) mod 24
  4.   StillPushing = not (gFrameCounter = 0)
  5.   if (gFrameCounter mod 2) = 0 then
  6.     StepSequence()
  7.     if sprite 70 intersects 62 then
  8.       repeat with i = 62 down to 60
  9.         if (sprite(i).locH > 0) and StillPushing then
  10.           if sprite(i).left > (4 + sprite(19).left) then
  11.             StillPushing = 0
  12.             next repeat
  13.           end if
  14.           sprite(i).locH = sprite(i).locH + 5
  15.         end if
  16.       end repeat
  17.     end if
  18.   end if
  19.   if StillPushing then
  20.     go(the frame)
  21.   else
  22.     preloadMember("gem1", "gem3")
  23.     preloadMember("75_ice")
  24.     gFrameCounter = 0
  25.   end if
  26. end
  27.